home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d20 / duchie.arc / DU291US3.EXE / pak / HUISARTS.SCR < prev    next >
Text File  |  1989-11-17  |  3KB  |  111 lines
  1. ;===================================================
  2. ; Terugbel script voor 2.91 en hoger
  3. ;
  4. ; (c) 1989 A.C.S.
  5. ;====================================================
  6.  
  7. ;Zet een algemene time-out voor dit script
  8.  
  9.         watchdog 500
  10.  
  11. ;Zet een algemene foutafhandelings uitgang. Maakt het script
  12. ;een stuk makkelijker leesbaar
  13.  
  14.         OnError Error
  15.  
  16. ;Zet de modem gereed voor uitgaande post en bel
  17.  
  18.         SetDtr On
  19.         ModemCommand SetupOut
  20. ;======================================================
  21. ; vul het VU telefoonnummer hier in
  22.         Show Bel nu ......xxxxx\
  23.         Dial xxxxx
  24. ;======================================================
  25.  
  26. ;Als we hier zijn gekomen dan is de verbinding tot stand gekomen
  27.  
  28.         Show Verbinding in orde\
  29.  
  30.  
  31. ;Handel nu de log in procedure af. We zetten de algemene foutafhandeling
  32. ;af zodat we bij een mislukte login een aantal nieuwe pogingen kunnen
  33. ;doen. Het aantal niewe pogingen wordt bijgehouden in twee tellers
  34.  
  35.         Onerror OFF
  36.         setcounter 2 0
  37. Label TryAgain
  38.         setCounter 1 0
  39.         repeat
  40.           Waitfor 10 ID:
  41.           IfFlag IsOk
  42.           Emit |
  43.           IncCounter 1 1
  44.           TestCounterEQ 1 3
  45.         untilFlag
  46.         Goto Error
  47. Label IsOk
  48. ;==========================================
  49. ; zet hier de gebruikersnaam
  50.         Emit xxxxx|
  51. ;==========================================
  52.         Waitfor 10 Password:
  53.         IfNotFlag Error
  54. ;===========================================
  55. ; zet hier het wachtwoord
  56.         Emit xxxxx|
  57. ;===========================================
  58.         Waitfor 10 accepted
  59.         IfFlag IsOk1
  60.         IncCounter 2 1
  61.         TestCounterEQ 2 3
  62.         IfNotFlag TryAgain
  63.         GoTo Error
  64.  
  65. Label IsOk1
  66.  
  67. ;als we tot hier zijn gekomen, dan is de login gelukt. We wachten 
  68. ;tot we terug worden gebeld.
  69.  
  70.         OnError Error
  71.         Show Log in gelukt. Wacht nu op het terugbellen..
  72.         Wait 5
  73.         SetDtr Off
  74.         ClearInBuf
  75.         ClearOutBuf
  76.         SetDtr on
  77.         ModemCommand SetUpIn
  78.  
  79. ;We wachten maximaal 75 seconden op het terugbellen
  80.  
  81.         WaitforCall 75
  82.  
  83. ;Als we hier zijn, dan zijn we teruggebeld. 
  84.  
  85.         Show \
  86.         OnError Off
  87.  
  88. ;****************************************************
  89. ; LET OP ! de volgende regel  te vervangen door de 
  90. ;          daaropvolgende twee regels bij NIET MNP
  91. ;          modems, waarbij de mailconnectie niet goed
  92. ;          tot stand komt. Omdat de VU een MNP modem heeft
  93. ;          en deze de eerste 30 seconden 'rommel'
  94. ;          zendt.
  95. ;******************************************************
  96.         Waitfor 30 Access_Enabled
  97. ;       Show 30 seconden wachttijd gestart\
  98. ;       Wait 30
  99. ;Het lijkt in orde, terug naar dutchie
  100.  
  101.         Show Toegang verkregen. Start nu Mail sessie\
  102.         clearoutbuf
  103.         clearinbuf
  104.         Exit
  105.  
  106. Label Error
  107.         SetDtr Off
  108.         Show Een fout, script afgebroken\
  109.         Abort 255
  110.  
  111.